MacFormat 1995 May/macformat-024.iso/Demos/DTP/HomePublisher Demo/AHP Pouch/AutoCreate/Business ID/_Business Card NewWave

Text File | 1993-09-17 | 4.2 KB | 172 lines | [SGPA/SCPG]

on startup
build
end startup

on Build
dodocsetup
locatefonts
newpublication pages 1 columns 0 PageWidth 594 PageHeight 841 pageorientation portrait topmargin 36 bottommargin 36 leftmargin 70 rightmargin 70

set displayinvisibles to false
set facingpages to false
set gridsnap to false
set lockguides to false
set magneticguides to true
set printcoloroptions to false
set printcolornames to true
set printcutouts to true
set printregistrationmarks to false
set printmarksoptions to no
set printpageoptions to all
set printtypeoptions to publication
set spotcolor 1 to 0,0,0
set spotcolor 2 to 65535,65535,65535
set spotcolor 3 to 62167,2134,34028
set spotcolor 4 to 0,32768,4528
set spotcolor 5 to 577,43860,60159
set spotcolor 6 to 56683,2242,1698
set spotcolor 7 to 0,0,54272
set spotcolor 8 to 64512,62333,1327
set linepattern to 1
set fillpattern to 2
set color to 1
set framelinetype to 1
set mousecursor to busy
set mousecursor to busy
goto rightbackground
PublicationSetup columns 1
set mousecursor to busy
goto page 1
-- •p1 1•
draw Line 313,281,313,281
set locked of last object to true
-- •p1 2•
draw Line 313,281,313,281
set locked of last object to true
-- •p1 3•
draw Line 313,281,313,281
set locked of last object to true
-- •p1 4•
draw Line 589,281,589,281
set locked of last object to true
-- •p1 5•
draw Line 589,281,589,281
set locked of last object to true
-- •p1 6•
draw Line 589,281,589,281
set locked of last object to true
-- •p1 7•
draw Line 313,445,313,445
set locked of last object to true
-- •p1 8•
draw Line 313,609,313,609
set locked of last object to true
-- •p1 9•
draw Line 313,445,313,445
set locked of last object to true
-- •p1 10•
draw Line 313,609,313,609
set locked of last object to true
-- •p1 11•
draw Line 313,445,313,445
set locked of last object to true
-- •p1 12•
draw Line 313,609,313,609
set locked of last object to true
-- •p1 13•
draw Line 589,445,589,445
set locked of last object to true
-- •p1 14•
draw Line 589,609,589,609
set locked of last object to true
-- •p1 15•
draw Line 589,445,589,445
set locked of last object to true
-- •p1 16•
draw Line 589,609,589,609
set locked of last object to true
-- •p1 17•
draw Line 589,445,589,445
set locked of last object to true
-- •p1 18•
draw Line 589,609,589,609
set locked of last object to true
-- •p1 19•
draw Rectangle 41,74,135,138
set rotationvalue of last object to 270
set croprectangle of last object to 0,0,94,64
-- •p1 20•
open story "address 1"
draw rectangle 140,22,278,191
close story
set linepattern of last object to 0
set rotationvalue of last object to 270
set croprectangle of last object to 0,0,94,64
set locked of last object to true
-- •p1 21•
draw Line 125,42,125,174
-- •p1 22•
draw Line 24,35,34,35
-- •p1 23•
draw Line 40,26,40,33
-- •p1 24•
draw Line 300,35,310,35
-- •p1 25•
draw Line 300,179,310,179
-- •p1 26•
draw Line 294,181,294,188
-- •p1 27•
draw Line 294,26,294,33
-- •p1 28•
draw Line 24,179,34,179
-- •p1 29•
draw Line 40,181,40,188
PublicationSetup columns 1
choose maintool
progressdialog hide
global usersOldMeasurement
set measurements to usersOldMeasurement
end Build


on locatefonts
global vHelvetica, vPalatino, vTimes, vNewYork, systemfonts
put fontfamilies into systemfonts
if systemfonts contains "New York" then put "New York"  into vNewYork
else put "Geneva" into vNewYork
if systemfonts contains "helvetica" then put "helvetica"  into vHelvetica
else put "Geneva" into vHelvetica
if systemfonts contains "Times" then put "Times" into vTimes
else put vNewYork into vTimes
if systemfonts contains "Palatino" then put "Palatino" into vPalatino
else put vTimes into vPalatino

end locatefonts

on dodocsetup
global usersOldMeasurement
set lockscreen to true
Set ShuffleTextObjects to false
put measurements into usersOldMeasurement
set measurements to points
set displayguides to false
set view to actual
set itemdel to ","
set worddel to space
set linedel to cr
set saveglobals to true
progressdialog open
progressdialog show "Creating publication"
end dodocsetup

on textsetup thefont, theface, thesize, thejust
global vHelvetica, vPalatino, vTimes, vNewYork
set styleRecomposition to false
set the textfont to value("v"&thefont)
do "set the textface to "&theface
set the textsize to thesize
set the rulerjustification to thejust
set styleRecomposition to true
end textsetup

    F<
B
Ï